From: Kenichi Handa Date: Fri, 8 Jan 2010 01:46:22 +0000 (+0900) Subject: international/fontset.el (build-default-fontset-data): Exclude characters in scripts... X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~8771^2~1 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=61af7fcfca41773c150e4bdf385d321b456601f1;p=emacs.git international/fontset.el (build-default-fontset-data): Exclude characters in scripts kana, hangul, han, or cjk-misc. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 21ecd728ab4..01f1da34f05 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-01-08 Kenichi Handa + + * international/fontset.el (build-default-fontset-data): Exclude + characters in scripts kana, hangul, han, or cjk-misc. + 2010-01-06 Jan Djärv * font-setting.el (font-setting-change-default-font): Use user-spec diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index 9b4a5d59ed4..1b45512fad6 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el @@ -361,8 +361,10 @@ (let ((from (car range)) (to (cdr range))) (if (< to #x110000) (while (<= from to) - (aset cjk-table from - (logior (or (aref cjk-table from) 0) mask)) + (or (memq (aref char-script-table from) + '(kana hangul han cjk-misc)) + (aset cjk-table from + (logior (or (aref cjk-table from) 0) mask))) (setq from (1+ from)))))) (nth 1 elt) nil (nth 2 elt) (nth 3 elt))) (setq i (1+ i)))